(checkbox): Add a small `X' to the the :on-glyph, so that it's

distinguishable from the :off-glyph on dark-background displays.  Set
its background color too.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index dc43f76700cca11dc1446698592e4b868378973f..db65fc1dfd495652e92850ff7db8212d51c0d6c6 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1992,15 +1992,18 @@ when he invoked the menu."
   ;; We could probably do the same job as the images using single
   ;; space characters in a boxed face with a stretch specification to
   ;; make them square.
-  :on-glyph (create-image (make-bool-vector 49 1)
+  :on-glyph (create-image "\377\311\301\343\301\311\377"  ; this is an `X'
                          'xbm t :width 7 :height 7
                          :foreground "grey75" ; like default mode line
-                         :relief -3 :ascent 'center)
+                         :background "black"
+                         :relief -3
+                         :ascent 'center)
   :off "[ ]"
   :off-glyph (create-image (make-bool-vector 49 1)
                           'xbm t :width 7 :height 7
                           :foreground "grey75"
-                          :relief 3 :ascent 'center)
+                          :relief 3
+                          :ascent 'center)
   :help-echo "Toggle this item."
   :action 'widget-checkbox-action)